home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 9 / Amoszine 9 (Disk 3 of 3).adf / Mals_Source_Code.lha / PROGRAM_TO_MEMORY.amos / PROGRAM_TO_MEMORY.amosSourceCode < prev   
AMOS Source Code  |  1980-03-22  |  929b  |  59 lines
  1. '**************************************
  2. '
  3. '    AMOS BACKGROUND PROGRAM RUNNER    
  4. '
  5. '       By Malcolm Lavery 1995 
  6. '
  7. '    Based on an idea by Steve Bye 
  8. '
  9. '**************************************  
  10. '
  11. '
  12. '''_STORE_PROGRAM
  13. '
  14. _RUN_PROGRAM
  15. '
  16. '
  17. Procedure _RUN_PROGRAM
  18.    F$=Fsel$("","","Load a Sample!","")
  19.    '
  20.    Open In 1,F$
  21.    L=Lof(1)
  22.    Close 1
  23.    '
  24.    Reserve As Chip Work 11,L
  25.    '
  26.    Bload F$,Start(11)
  27.    '
  28.    Led Off 
  29.    '
  30.    Bsave "RAM:TEMP",Start(10) To Start(10)+Length(10)
  31.    '
  32.    F$=Fsel$("","","Load a picture!","")
  33.    '
  34.    Amos To Back 
  35.    '
  36.    '*** CHANGE TO THE SYNTEX OF THE PROGRAM *** 
  37.    '
  38.    Sam Raw 1,Start(11),Length(11),22000
  39.    Exec "RAM:TEMP "+F$
  40.    '
  41.    Amos To Front 
  42.    '
  43.    Kill "RAM:TEMP"
  44.    ''   Erase 10
  45.    '
  46. End Proc
  47. '
  48. Procedure _STORE_PROGRAM
  49.    '
  50.    F$=Fsel$("","","Load a program!","")
  51.    '
  52.    Open In 1,F$
  53.    L=Lof(1)
  54.    Close 1
  55.    '
  56.    Reserve As Data 10,L
  57.    Bload F$,Start(10)
  58.    '
  59. End Proc